Clear["Global`*"];
mapa="c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\data iz posnetkov\\";
pot="c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\posnetki\\obdelani\\2.35mm   4.mp4";
slike=Import[pot,{"ImageList"}][[15;;]];

Filter0[]:=Map[Norm, spzp, {2}]  (*črnobela*)
Filter1[]:=(1/2)(1-Sign[    (*ozadje 1, neozadje 0*)
	δSkPrjiji=1-Map[Normalize[#].Normalize[barvaozadja1]&,spzp,{2}];
	(*meri odstopanje od ozadja, vedno med 0 in 1*)
	((δSkPrjiji(*večje to na 0, manjše to na 1*))/(Mean@Mean@δSkPrjiji))-1+krit1]);
Filter2[]:=Round[krit2(filtrirana0+filtrirana1)];



Ops[TN_]:=(
	opsr=Round[TN+Reverse@(reszp/2){{-1,1},{-1,1}}];(*lah čez rob gleda*)
	Table[(*porihtamo robove*)
		Which[
			#<1,1,
			#>If[i==1,resy,resx],If[i==1,resy,resx],
			True,#
		]&/@opsr[[i]],
	{i,2}]
);

slike[[1]]

SetOptions[$FrontEnd, "DynamicUpdating" -> True];
res={resx,resy}=ImageDimensions@slike[[1]];
ops1={{2,70}+20,{450, 590}-170};(*območje pregledovanja 1. slike (vrs->vrs,sto->sto)*)
reszp={resxzp,resyzp}=1+(Differences/@ops1)[[{2,1},1]];

sp1=ImageData@slike[[1]];
sp1zp=sp1[[ops1[[1,1]];;ops1[[1,2]],ops1[[2,1]];;ops1[[2,2]]]];(*del za pregledat*)
sp=sp1;spzp=sp1zp;

barvaozadja1=Mean@spzp[[;;,1]];(*sam pr 1. framu nrdimo to*)

filtrirana0=Filter0[];(*črnobela*)
Manipulate[
	{krit1,krit2}=krit;
	filtrirana1=Filter1[];
	filtrirana2=Filter2[];
	ImageAssemble@Map[Image, (({{sp1zp, filtrirana1}, {(1-filtrirana2)sp1zp+filtrirana2, filtrirana2}})), {2}],
{krit, {1, .5}, {-.1, 1.5}}]

SetOptions[$FrontEnd, "DynamicUpdating" -> False];
KN1=Position[filtrirana2,0];
KN=KN1;
ops=ops1;
TN1=N@Mean@KN1+ops1[[;;,1]];
TNP=TN1;(*rečmo, da je najpšrej prbližno prmer*)

vszi={filtrirane2,KNji,vogaliLZ,TNji}=Transpose@Table[(*vsi seznami za izvozit*)
	If[IntegerQ[isl/100],Print@isl];
	TN=N@Mean@KN+ops[[;;,1]];(*težišče najdenih*)
	ops=Ops[2TN-TNP];(*TN+(TN-TNP)*)
	sp=ImageData@slike[[isl]];
	spzp=sp[[ops[[1,1]];;ops[[1,2]],ops[[2,1]];;ops[[2,2]]]];
	barvaozadja1=Mean@spzp[[;;,1]];
	filtrirana0=Filter0[];(*črnobela*)
	filtrirana1=Filter1[];
	filtrirana2=Filter2[];
	
	(*vse to so relativne koord v pikslih od LZ vogala območja zp*)
	KN=Position[filtrirana2,0];(*koordinate najdenih*)
	TNP=TN;(*prejšnje*)
	
	{filtrirana2,KN,ops[[;;,1]],TN},
{isl,1.0Length@slike}];




mapazs=mapa<>StringDrop[StringSplit[pot,"\\"][[-1]],-4]<>"\\";(*za shrant*)
If[Not@DirectoryQ@mapazs,CreateDirectory@mapazs];

sszi={filtrirane2,KNji,vogaliLZ,TNji};(*seznam seznamov za izvozit*)
ssziis=StringSplit[(*imena teh seznamov*)
	StringTake[
		ToString@Hold@{filtrirane2,KNji,vogaliLZ,TNji},
	7;;-3],
", "];

Do[
	szi=sszi[[i]];
	Export[mapazs<>ssziis[[i]]<>
		If[Depth@szi==Length@Dimensions@szi+1,".h5",".mx"],
	szi],
{i,Length@sszi}];